home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / gfx / edit / hamlab208d.lha / HamLabPlus_Demo / Rexx / cropscreen.hl < prev    next >
Text File  |  1992-06-22  |  521b  |  20 lines
  1. /* HamLab Plus function to crop to the current visible screen boundaries
  2.  */
  3.  
  4. /* get the display attributes from HL+ */
  5.  
  6. 'GETATTR DISPLAY STEM DISP'
  7.  
  8. /* If the visible width (or height) is zero, it means the display screen
  9.  * is not open, so don't do anything.
  10.  */
  11.  
  12. if disp.visible.width = 0 then exit 5
  13.  
  14. /* set the boundaries */
  15. 'OUTPUTCROP' 'UL' disp.visible.ulx||','||disp.visible.uly 'WIDTH' disp.visible.width 'HEIGHT' disp.visible.height
  16.  
  17. /* redisplay with the new boundaries (not strictly necessary) */
  18.  
  19. 'DISPLAY'
  20.